library(foreign)
data<-read.csv("/Users/justinkirkland/Desktop/Publications/SPPQ - Justin/R/Contributions.csv")

summary(mod<-lm(Individ_Contrib~medinc2+CompRatio+pop2000+Cal+MMD, data=data))
summary(mod<-lm(Ind.Tot~medinc2+CompRatio+pop2000+Cal+MMD, data=data))